As you probably know, tennis is a racket sport that is widely popular. In this short presentation I’d like to tell you some basic and hopefully also interesting (fun) facts about tennis.

I will focus on these points:

• What is tennis, how do you play it?

• Some data

• Fun Facts

• Last but not least

The table below displays data on the Finals of competitions worldwide, from 1991-2016. (DataHub 2018)

If you wanted to look at Semi-Finals, you could use the following code:

dat1 <- dat %>% 
  filter(tourney_round_name == "Semi-Finals") %>%
  mutate(year = as.numeric(str_split_fixed(tourney_year_id, "-", 2)[,1])) %>%
  select(year, tourney_slug, winner_name, 
         loser_name, match_score_tiebreaks) %>%
  rename(location = tourney_slug, winner = winner_name, loser = loser_name, 
         match_score = match_score_tiebreaks)

datatable(dat1, options = list(pageLength = 8), rownames = NULL)

This code would produce the exact same table as on the slide before, but for Semi-Finals instead of Finals.

Below, I have visualised Roger Federer’s wins over the years.

• Every year, 24 tons of strawberries are consumed during Wimbledon.

• Tennis balls were originally white. In 1986, yellow balls were first introduced at Wimbledon.

• An estimated 54,250 tennis balls are used during Wimbledon.

• The first set of sisters to ever win Olympic gold medals in tennis were Venus and Serena Williams.

Since I have not yet included a mathematical formula, I will do this now.

\[\begin{align} a &= b + c^2 \\ a - c^2 &= b, \\ \text{left side} &= \text{right side,} \\ \text{left side} + \text{something} &\geq \text{right side,} \end{align}\]

Disclaimer: This formula has nothing to do with tennis.